Packages
Case studies
Load data
For one lemma
Comparative analyses
Usage intensity
uses <- get_uses(tweets)
uses_tot <- get_uses_tot(uses)
age = get_age(uses)
coef_var <- get_coef_var(uses)
mean_date <- get_mean_date(uses)
max_date <- get_max_date(uses)
uses_month <- conv_uses_month(uses)
uses_plt <- plt_uses(uses_month, lemma, mean_date, max_date)
ggplotly(uses_plt)
`geom_smooth()` using method = 'loess' and formula 'y ~ x'
Advanced (S-curve)
Candidates
- ghosting
- deep learning
- artificial intelligence
- co-working
- climate emergency
Degree centralization
Diachronic
df_comp %>%
filter(LEMMA ==lemma) %>%
select(SUBSET, CENT_DEGREE) %>%
mutate(SUBSET = factor(SUBSET, levels=c('first', 'mean', 'max', 'last', 'full'))) %>%
ggplot(., aes(x=SUBSET, y=CENT_DEGREE, group=1)) +
geom_point() +
geom_line()

Comparative analyses
Processing status
Lemma list
df_comp %>%
select(LEMMA, SUBSET, STAMP) %>%
filter(SUBSET == 'full') %>%
mutate(STAMP = as_datetime(STAMP)) %>%
arrange(desc(STAMP))
Dataset statistics
df_comp %>%
filter(SUBSET == 'full') %>%
select(LEMMA, SUBSET, USES, USERS) %>%
dplyr::summarise(
USES_TOT = sum(USES),
USERS_TOT = sum(USERS)
)
Degree centrality
Overall
List
df_comp %>%
select(LEMMA, SUBSET, USES, CENT_DEGREE) %>%
filter(
SUBSET == 'full',
# USES >= 10000
) %>%
arrange((CENT_DEGREE))
Plot
plt <- df_comp %>%
select(LEMMA, SUBSET, USES, CENT_DEGREE) %>%
filter(SUBSET == 'full') %>%
arrange((CENT_DEGREE)) %>%
ggplot(., aes(x=CENT_DEGREE, y=reorder(LEMMA, CENT_DEGREE))) +
geom_point() +
scale_x_continuous(trans='log')
ggplotly(plt)
Over time
Across all lemmas
df_comp %>%
filter(
SUBSET != 'full',
EDGES >= 100
) %>%
group_by(SUBSET) %>%
summarize(CENT_AVG = mean(CENT_DEGREE)) %>%
mutate(SUBSET = factor(SUBSET, levels=c('first', 'mean', 'max', 'last'))) %>%
ggplot(., aes(x=SUBSET, y=CENT_AVG, group=1)) +
geom_point() +
geom_line()

Biggest changes
df_comp %>%
select(LEMMA, SUBSET, CENT_DEGREE, EDGES) %>%
filter(
SUBSET %in% c('first', 'last'),
EDGES >= 100
) %>%
dplyr::group_by(LEMMA) %>%
dplyr::mutate(CENT_DIFF = lag(CENT_DEGREE) - CENT_DEGREE) %>%
drop_na() %>%
select(-SUBSET) %>%
rename(
CENT_LAST = CENT_DEGREE,
EDGES_LAST = EDGES
) %>%
arrange(desc(CENT_DIFF))
Usage intensity vs. network characteristics
Uses vs. degree centralization
Plot
plt <- df_comp %>%
filter(
SUBSET == 'full',
# USES >= 1000
) %>%
select(LEMMA, CENT_DEGREE, USES, EDGES) %>%
ggplot(., aes(x=CENT_DEGREE, y=USES)) +
geom_text(aes(label=LEMMA)) +
scale_y_continuous(trans='log') +
scale_x_continuous(trans='log') +
geom_smooth(method=lm)
ggplotly(plt)
Correlation
df_corr_full <- df_comp %>%
filter(
SUBSET != 'full',
EDGES >= 100
) %>%
select(-c(LEMMA, SUBSET, NET_WINDOW_DATES, SKIP, STAMP, NROWS))
cor.test(df_corr_full$USES, df_corr_full$CENT_DEGREE)
Degree centrality vs. communities
Correlation
df_comp %>%
filter(SUBSET == 'last') %>%
select(CENT_DEGREE, COMMUNITIES) %>%
mutate(COMMUNITIES = as.numeric(COMMUNITIES)) %>%
correlate()
Plot
df_comp %>%
filter(SUBSET == 'last') %>%
select(LEMMA, CENT_DEGREE, COMMUNITIES) %>%
ggplot(., aes(x=CENT_DEGREE, y=as.numeric(COMMUNITIES))) +
geom_text(aes(label=LEMMA)) +
scale_x_continuous(trans='log')
Uses vs. users
Plot
plt <- df_comp %>%
filter(SUBSET == 'full') %>%
select(LEMMA, USES, USERS) %>%
ggplot(., aes(x=USERS, y=USES)) +
geom_text(aes(label=LEMMA)) +
scale_x_continuous(trans='log') +
scale_y_continuous(trans='log') +
geom_smooth(method=lm)
ggplotly(plt)
Correlation
df_comp %>%
filter(SUBSET == 'full') %>%
select(USES, USERS) %>%
correlate()
Coefficient of variation
df_comp %>%
filter(
SUBSET == 'full',
USES >= 1000
) %>%
select(LEMMA, USES, COEF_VAR) %>%
arrange(desc(COEF_VAR))
COEF_VAR vs. CENT
df_comp %>%
filter(SUBSET == 'full') %>%
select(LEMMA, COEF_VAR, CENT_DEGREE) %>%
ggplot(., aes(y=COEF_VAR, x=CENT_DEGREE)) +
geom_text(aes(label=LEMMA)) +
scale_y_continuous(trans='log')
Correlations: EDA
library(Hmisc)
df_corr <- df_comp %>%
# filter(SUBSET == 'last') %>%
select(-c(LEMMA, SUBSET, NET_WINDOW_DATES, SKIP, STAMP, NROWS))
# select(-c(USERS, AGE)) %>%
# mutate(FOCUS = USES) %>%
# focus(FOCUS) %>%
# ggplot(., aes(reorder(rowname, FOCUS), FOCUS)) +
# geom_col() +
# coord_flip()
# rearrange() %>%
# shave() %>%
# rplot()
# network_plot(min_cor=.5) %>%
LS0tCmF1dGhvcjogJ1F1aXJpbiBXw7xyc2NoaW5nZXInCnRpdGxlOiAiU29jaWFsIG5ldHdvcmtzIG9mIGxleGljYWwgaW5ub3ZhdGlvbiIKb3V0cHV0OiAKICBodG1sX25vdGVib29rOiAKICAgIHRvYzogeWVzCi0tLQoKIyBQYWNrYWdlcwoKYGBge3IgaW5jbHVkZT1GQUxTRX0Kc291cmNlKCdzcmMvbG9hZC1kYXRhLlInKQpzb3VyY2UoJ3NyYy9wb3N0cHJvYy5SJykKc291cmNlKCdzcmMvdXNlcy5SJykKc291cmNlKCdzcmMvdXNlcnMuUicpCnNvdXJjZSgnc3JjL3NuYS5SJykKCmxpYnJhcnkoY29ycnIpCmxpYnJhcnkodGlkeXIpCmBgYAoKIyBDYXNlIHN0dWRpZXMKCiMjIExvYWQgZGF0YQoKIyMjIEZvciBvbmUgbGVtbWEKCmBgYHtyIGluY2x1ZGU9RkFMU0V9CmNvcnB1cyA8LSAnL1ZvbHVtZXMvcWpkL3R3aW50LycKbGVtbWEgPC0gJ2ZsaWdodCBzaGFtZScKCnR3ZWV0cyA8LSBsb2FkX2RhdGEoY29ycHVzLCBsZW1tYSkKdHdlZXRzIDwtIHBvc3Rwcm9jKHR3ZWV0cykKYGBgCgojIyMgQ29tcGFyYXRpdmUgYW5hbHlzZXMKCmBgYHtyIGluY2x1ZGU9RkFMU0V9CmlmIChleGlzdHMoJ2RmX2NvbXAnKSA9PSBGQUxTRSkgewogIGRmX2NvbXAgPC0gcmVhZF9jc3YoJ291dC9kZl9jb21wLmNzdicpCn0KYGBgCgoKIyMgQ2hlY2sgdHdlZXRzCgpgYGB7cn0KdHdlZXRzICU+JQogIHNlbGVjdCh0d2VldCwgZGF0ZSkgJT4lCiAgc2xpY2UoLiwgc2FtcGxlKDE6bigpKSkKYGBgCgoKIyMgVXNhZ2UgaW50ZW5zaXR5CgpgYGB7cn0KdXNlcyA8LSBnZXRfdXNlcyh0d2VldHMpCnVzZXNfdG90IDwtIGdldF91c2VzX3RvdCh1c2VzKQphZ2UgPSBnZXRfYWdlKHVzZXMpCmNvZWZfdmFyIDwtIGdldF9jb2VmX3Zhcih1c2VzKQptZWFuX2RhdGUgPC0gZ2V0X21lYW5fZGF0ZSh1c2VzKQptYXhfZGF0ZSA8LSBnZXRfbWF4X2RhdGUodXNlcykKdXNlc19tb250aCA8LSBjb252X3VzZXNfbW9udGgodXNlcykKdXNlc19wbHQgPC0gcGx0X3VzZXModXNlc19tb250aCwgbGVtbWEsIG1lYW5fZGF0ZSwgbWF4X2RhdGUpCmdncGxvdGx5KHVzZXNfcGx0KQpgYGAKCgojIyMgQWR2YW5jZWQgKFMtY3VydmUpCgpDYW5kaWRhdGVzCgoqIGdob3N0aW5nCiogZGVlcCBsZWFybmluZwoqIGFydGlmaWNpYWwgaW50ZWxsaWdlbmNlCiogY28td29ya2luZwoqIGNsaW1hdGUgZW1lcmdlbmN5CgoKIyMgRGVncmVlIGNlbnRyYWxpemF0aW9uCgojIyMgRGlhY2hyb25pYwoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKExFTU1BID09bGVtbWEpICU+JQogIHNlbGVjdChTVUJTRVQsIENFTlRfREVHUkVFKSAlPiUKICBtdXRhdGUoU1VCU0VUID0gZmFjdG9yKFNVQlNFVCwgbGV2ZWxzPWMoJ2ZpcnN0JywgJ21lYW4nLCAnbWF4JywgJ2xhc3QnLCAnZnVsbCcpKSkgJT4lCiAgZ2dwbG90KC4sIGFlcyh4PVNVQlNFVCwgeT1DRU5UX0RFR1JFRSwgZ3JvdXA9MSkpICsKICAgIGdlb21fcG9pbnQoKSArCiAgICBnZW9tX2xpbmUoKQpgYGAKCgoKCiMgQ29tcGFyYXRpdmUgYW5hbHlzZXMKCiMjIFByb2Nlc3Npbmcgc3RhdHVzCgojIyMgTGVtbWEgbGlzdAoKYGBge3J9CmRmX2NvbXAgJT4lCiAgc2VsZWN0KExFTU1BLCBTVUJTRVQsIFNUQU1QKSAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdmdWxsJykgJT4lCiAgbXV0YXRlKFNUQU1QID0gYXNfZGF0ZXRpbWUoU1RBTVApKSAlPiUKICBhcnJhbmdlKGRlc2MoU1RBTVApKQpgYGAKCgojIyMgRGF0YXNldCBzdGF0aXN0aWNzCgpgYGB7cn0KZGZfY29tcCAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdmdWxsJykgJT4lCiAgc2VsZWN0KExFTU1BLCBTVUJTRVQsIFVTRVMsIFVTRVJTKSAlPiUKICBkcGx5cjo6c3VtbWFyaXNlKAogICAgVVNFU19UT1QgPSBzdW0oVVNFUyksCiAgICBVU0VSU19UT1QgPSBzdW0oVVNFUlMpCiAgICApCmBgYAoKCgojIyBEZWdyZWUgY2VudHJhbGl0eQoKIyMjIE92ZXJhbGwKCiMjIyMgTGlzdAoKYGBge3J9CmRmX2NvbXAgJT4lCiAgc2VsZWN0KExFTU1BLCBTVUJTRVQsIFVTRVMsIENFTlRfREVHUkVFKSAlPiUKICBmaWx0ZXIoCiAgICBTVUJTRVQgPT0gJ2Z1bGwnLAogICAgIyBVU0VTID49IDEwMDAwCiAgICApICU+JQogIGFycmFuZ2UoKENFTlRfREVHUkVFKSkKYGBgCgoKIyMjIyBQbG90CgpgYGB7cn0KcGx0IDwtIGRmX2NvbXAgJT4lCiAgc2VsZWN0KExFTU1BLCBTVUJTRVQsIFVTRVMsIENFTlRfREVHUkVFKSAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdmdWxsJykgJT4lCiAgYXJyYW5nZSgoQ0VOVF9ERUdSRUUpKSAlPiUKICBnZ3Bsb3QoLiwgYWVzKHg9Q0VOVF9ERUdSRUUsIHk9cmVvcmRlcihMRU1NQSwgQ0VOVF9ERUdSRUUpKSkgKwogICAgZ2VvbV9wb2ludCgpICsKICAgIHNjYWxlX3hfY29udGludW91cyh0cmFucz0nbG9nJykKZ2dwbG90bHkocGx0KQpgYGAKCgojIyMgT3ZlciB0aW1lCgojIyMjIEFjcm9zcyBhbGwgbGVtbWFzCgpgYGB7cn0KZGZfY29tcCAlPiUKICBmaWx0ZXIoCiAgICBTVUJTRVQgIT0gJ2Z1bGwnLAogICAgRURHRVMgPj0gMTAwCiAgICApICU+JQogIGdyb3VwX2J5KFNVQlNFVCkgJT4lCiAgc3VtbWFyaXplKENFTlRfQVZHID0gbWVhbihDRU5UX0RFR1JFRSkpICU+JQogIG11dGF0ZShTVUJTRVQgPSBmYWN0b3IoU1VCU0VULCBsZXZlbHM9YygnZmlyc3QnLCAnbWVhbicsICdtYXgnLCAnbGFzdCcpKSkgJT4lCiAgZ2dwbG90KC4sIGFlcyh4PVNVQlNFVCwgeT1DRU5UX0FWRywgZ3JvdXA9MSkpICsKICAgIGdlb21fcG9pbnQoKSArCiAgICBnZW9tX2xpbmUoKQpgYGAKCgojIyMjIEJpZ2dlc3QgY2hhbmdlcwoKYGBge3J9CmRmX2NvbXAgJT4lCiAgc2VsZWN0KExFTU1BLCBTVUJTRVQsIENFTlRfREVHUkVFLCBFREdFUykgJT4lCiAgZmlsdGVyKAogICAgU1VCU0VUICVpbiUgYygnZmlyc3QnLCAnbGFzdCcpLAogICAgRURHRVMgPj0gMTAwCiAgICApICU+JQogIGRwbHlyOjpncm91cF9ieShMRU1NQSkgJT4lCiAgZHBseXI6Om11dGF0ZShDRU5UX0RJRkYgPSBsYWcoQ0VOVF9ERUdSRUUpIC0gQ0VOVF9ERUdSRUUpICU+JQogIGRyb3BfbmEoKSAlPiUKICBzZWxlY3QoLVNVQlNFVCkgJT4lCiAgcmVuYW1lKAogICAgQ0VOVF9MQVNUID0gQ0VOVF9ERUdSRUUsCiAgICBFREdFU19MQVNUID0gRURHRVMKICAgICkgJT4lCiAgYXJyYW5nZShkZXNjKENFTlRfRElGRikpCmBgYAoKCiMgVXNhZ2UgaW50ZW5zaXR5IHZzLiBuZXR3b3JrIGNoYXJhY3RlcmlzdGljcwoKIyMgVXNlcyB2cy4gZGVncmVlIGNlbnRyYWxpemF0aW9uCgojIyMgUGxvdAoKYGBge3J9CnBsdCA8LSBkZl9jb21wICU+JQogIGZpbHRlcigKICAgIFNVQlNFVCA9PSAnZnVsbCcsCiAgICAjIFVTRVMgPj0gMTAwMAogICAgKSAlPiUKICBzZWxlY3QoTEVNTUEsIENFTlRfREVHUkVFLCBVU0VTLCBFREdFUykgJT4lCiAgZ2dwbG90KC4sIGFlcyh4PUNFTlRfREVHUkVFLCB5PVVTRVMpKSArCiAgICBnZW9tX3RleHQoYWVzKGxhYmVsPUxFTU1BKSkgKyAKICAgIHNjYWxlX3lfY29udGludW91cyh0cmFucz0nbG9nJykgKwogICAgc2NhbGVfeF9jb250aW51b3VzKHRyYW5zPSdsb2cnKSArCiAgICBnZW9tX3Ntb290aChtZXRob2Q9bG0pCmdncGxvdGx5KHBsdCkKYGBgCgojIyMgQ29ycmVsYXRpb24KCmBgYHtyfQpkZl9jb3JyX2Z1bGwgPC0gZGZfY29tcCAlPiUKICBmaWx0ZXIoCiAgICBTVUJTRVQgIT0gJ2Z1bGwnLAogICAgRURHRVMgPj0gMTAwCiAgICApICU+JQogIHNlbGVjdCgtYyhMRU1NQSwgU1VCU0VULCBORVRfV0lORE9XX0RBVEVTLCBTS0lQLCBTVEFNUCwgTlJPV1MpKQogIApjb3IudGVzdChkZl9jb3JyX2Z1bGwkVVNFUywgZGZfY29ycl9mdWxsJENFTlRfREVHUkVFKQpgYGAKCgojIyBEZWdyZWUgY2VudHJhbGl0eSB2cy4gY29tbXVuaXRpZXMKCiMjIyBDb3JyZWxhdGlvbgoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKFNVQlNFVCA9PSAnbGFzdCcpICU+JQogIHNlbGVjdChDRU5UX0RFR1JFRSwgQ09NTVVOSVRJRVMpICU+JQogIG11dGF0ZShDT01NVU5JVElFUyA9IGFzLm51bWVyaWMoQ09NTVVOSVRJRVMpKSAlPiUKICBjb3JyZWxhdGUoKQpgYGAKCgojIyMgUGxvdAoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKFNVQlNFVCA9PSAnbGFzdCcpICU+JQogIHNlbGVjdChMRU1NQSwgQ0VOVF9ERUdSRUUsIENPTU1VTklUSUVTKSAlPiUKICBnZ3Bsb3QoLiwgYWVzKHg9Q0VOVF9ERUdSRUUsIHk9YXMubnVtZXJpYyhDT01NVU5JVElFUykpKSArCiAgICBnZW9tX3RleHQoYWVzKGxhYmVsPUxFTU1BKSkgKwogICAgc2NhbGVfeF9jb250aW51b3VzKHRyYW5zPSdsb2cnKQpgYGAKCgoKIyMgVXNlcyB2cy4gdXNlcnMKCiMjIyBQbG90CgpgYGB7cn0KcGx0IDwtIGRmX2NvbXAgJT4lCiAgZmlsdGVyKFNVQlNFVCA9PSAnZnVsbCcpICU+JQogIHNlbGVjdChMRU1NQSwgVVNFUywgVVNFUlMpICU+JQogIGdncGxvdCguLCBhZXMoeD1VU0VSUywgeT1VU0VTKSkgKwogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbD1MRU1NQSkpICsKICAgIHNjYWxlX3hfY29udGludW91cyh0cmFucz0nbG9nJykgKwogICAgc2NhbGVfeV9jb250aW51b3VzKHRyYW5zPSdsb2cnKSArCiAgICBnZW9tX3Ntb290aChtZXRob2Q9bG0pCmdncGxvdGx5KHBsdCkKYGBgCgojIyMgQ29ycmVsYXRpb24KCmBgYHtyfQpkZl9jb21wICU+JQogIGZpbHRlcihTVUJTRVQgPT0gJ2Z1bGwnKSAlPiUKICBzZWxlY3QoVVNFUywgVVNFUlMpICU+JQogIGNvcnJlbGF0ZSgpCmBgYAoKCiMjIENvZWZmaWNpZW50IG9mIHZhcmlhdGlvbgoKYGBge3J9CmRmX2NvbXAgJT4lCiAgZmlsdGVyKAogICAgU1VCU0VUID09ICdmdWxsJywKICAgIFVTRVMgPj0gMTAwMAogICAgKSAlPiUKICBzZWxlY3QoTEVNTUEsIFVTRVMsIENPRUZfVkFSKSAlPiUKICBhcnJhbmdlKGRlc2MoQ09FRl9WQVIpKQpgYGAKCgojIENPRUZfVkFSIHZzLiBDRU5UCgpgYGB7cn0KZGZfY29tcCAlPiUKICBmaWx0ZXIoU1VCU0VUID09ICdmdWxsJykgJT4lCiAgc2VsZWN0KExFTU1BLCBDT0VGX1ZBUiwgQ0VOVF9ERUdSRUUpICU+JQogIGdncGxvdCguLCBhZXMoeT1DT0VGX1ZBUiwgeD1DRU5UX0RFR1JFRSkpICsKICAgIGdlb21fdGV4dChhZXMobGFiZWw9TEVNTUEpKSArCiAgICBzY2FsZV95X2NvbnRpbnVvdXModHJhbnM9J2xvZycpCmBgYAoKCiMgQ29ycmVsYXRpb25zOiBFREEKCmBgYHtyfQpsaWJyYXJ5KEhtaXNjKQoKZGZfY29yciA8LSBkZl9jb21wICU+JQogICMgZmlsdGVyKFNVQlNFVCA9PSAnbGFzdCcpICU+JQogIHNlbGVjdCgtYyhMRU1NQSwgU1VCU0VULCBORVRfV0lORE9XX0RBVEVTLCBTS0lQLCBTVEFNUCwgTlJPV1MpKQogICMgc2VsZWN0KC1jKFVTRVJTLCBBR0UpKSAlPiUKICAjIG11dGF0ZShGT0NVUyA9IFVTRVMpICU+JQogICMgZm9jdXMoRk9DVVMpICU+JQogICMgZ2dwbG90KC4sIGFlcyhyZW9yZGVyKHJvd25hbWUsIEZPQ1VTKSwgRk9DVVMpKSArCiAgICAjIGdlb21fY29sKCkgKwogICAgIyBjb29yZF9mbGlwKCkKICAjIHJlYXJyYW5nZSgpICU+JQogICMgc2hhdmUoKSAlPiUKICAjIHJwbG90KCkKICAjIG5ldHdvcmtfcGxvdChtaW5fY29yPS41KSAlPiUKCiAgCmBgYAoKCiAg